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| 5 
**F [LE**1D**BASMOVEAR : 

BBBBBBBB AAAAAA SSSSSSSS MM MM 000000 VV VV EEEEEEEEEE ALAGBA RRRRRRRR 

BBBBBBBB AAAAAA SSSSSSSS MM MM 000000 VV VV EEEEEEEEEE AAAAAA RRRRRRRR 

8B BB AA AA SS MMMM = MMMM 00 vv vv EE AA AA RR RR 

6B BB AA AA SS MMMM MMMM 600 00 VV VV EE AA AA RR RR 

88 BB AA AA SS MM MM 00 00 vv VV EE AA AA RR RR 

BB BB AA AA SS mM MM MM «(O00 0O vv VV EE AA AA RR R 

BBBBBBBB AA AA SSSSSS MM MM 00 00 VV VV EEEEEEEE Aa AA RRRRRRRR 

6B AA AA SSSSSS MM 00 00 VV VV EEEEEEEE AA AA RRRRRRRR 

BB BB AAAAAAAAAA SS MM MM 00 00 vv vv EE AAAAAAAAAA RR RR 

BB BB AAAAAAAAAA SS MM MM 00 00 vv . & AAAAAAAAAA RR RR 

BB BB AA AB SS MM MM 00 00 VV VV EE AA AA RR RR cece 

8B BB AA Bb SS MM 00 Vv VV EE Ag AA RR RR cess 

BBBBBBBB Aa AA SSSSSSSS MM MM 000000 VV EEEEEEEEEE AA AA RR RR cece 
AA AA SSSSSSSS MM 000000 VV EEEEEEEEEE AA AA RR RR cece 

LL IIIIII SSSSSSSS 

LL IIIT] SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] S$ 

LL I] SS 

LL I] $$ 

LLLLLLLLLL III] SSSSSSSS 

LLLLLLLLLL 1111] SSSSSSSS 
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| BASSMOVE _ARRAY 16-Sep-1984 00:47:33 AX-11 Bliss-32 V4.0-74 P 1 
14 eet 99590: 33 EBASRTL SRE BASMOVEAR .B352;1 _ (1) 
' 


MODULE BASSMOVE_ARRAY ( 
IDENT = "1-020" ! File: BASMOVEAR.B32 Edit: MDL1020 
= 


BEGIN 


lojlelelele) 
VFwnN— 


PORE SELISESTIOI SEIS STITT TTT PPT Tic c tre Trice icici icc iii iiiiitt 
' 


:* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'* ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE 
THE TERMS OF 


Ss 


try MAY BE USED AND COPIED 


SSoooooooeeeooSSSoSSS 


4 

; 4 1 

3 5 1 

; § 1 

o8 ° 
P4 ® 
Ps § 88 1 ® 
; WwW 10 1 a 
; 11 11—=«71 © 
3 \§ \¢ 1 * 
, ¥F 13 1 !* ONLY IN ACCORDANCE WITH SUCH LICENSE AND WITH THE * 
; % 146 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
. 15 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 16 18 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: i? \ : pa TRANSFERRED. id 
: '® e 
; 19 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 20 20 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $1 $] : :* CORPORATION. * 
H '® ® 
: 8 $§ 1 != DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 26 24 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
:t 0025 1 !* * 
; @& 0026 1 !* * 
3 27 it 34 4 eR RARR AERA AAAAERAAAAAEAAAAAAAAAA EERE AAAE RAAT AERREEEH AREER 
a 0028 1! 

; $3 0029 1 

3 0 0030 1 !++ 

; Ht 0031 1 ! FACILITY: BASIC-PLUS-2 Miscellaneous 1/0 

; 2 B86 1! 

; 33 0335 1 ! ABSTRACT: 

: $e 0034 1! 

3 5 0035 1! This module contains the routines called by compiled code 

; 0036 1! for the MOVE FROM and MOVE TO statements, when applied to 

Ss ar 0037 1! arrays. 

; 2 0038 1! 

ae, 0039 1 ! ENVIRONMENT: VAX-11 User Mode 

:; 40 0040 1! 

3 41 0041 1 ! AUTHOR: John Sauter, CREATION DATE: 30-AUG-1979 

3 $¢ 0086 1! 

. 1 ! MODIFIED BY: 

; 4G 044 1! 

3; 9 045 1 ! 1-001 = Original, . , ; 

; 46 0046 1 ! 1-002 = Version 001 was just a skeleton, code single-dimensioned 

3; «66F 0047 1! numeric arrays moving TO the buffer, so we can see how 

: «48 0048 1 the algorithms work. JBS 3icAuG-1979 

; «649 0049 1 ! 1-003 = Code DEST_NA. JBS 06-SEP-1979 

3 30 0050 1 ! 1-004 - Code SRC_SA. JBS 10-SEP-1979 

3 33 th ' 1-005 - Sede the other g*tectors. ALL coding is now complete. 

; 6 $088 1 ! 1-006 = When patctot isos a string descriptor, be sure the pointer 

5; 3 0054 1! is zero. JBS 18-SEP-197 : . 

ae Bpae 1 ! 1-007 = When the source is a string array and a length is specitied. 

; n29 1: alwa ; put the specified number of characters in the buffer. 

ae 0057 1: 38S 22-DCT-1979 
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BASSMOVE _ARRAY 18-se0-19 4 AX=-11 Bliss-32 V4.0-7 Pa 
wt Hat 99: $6 33 BASRTL.SRC BASMOVEAR. 8 2;1 es (1 
3 8 0 1 ! 1-008 = SRC_NA, SRC_SA, DEST_NA, sone DEST_SA must access the arra 

3 9 838 1! = Tow “major order. “PL ‘1 5} 

; @& 060 1 ! 1-009 - Add support for recer es. “wove. ARRAY, src 5A, and DEST_SA 

; (61 061 1: ave been modified for dtype 2. PLL’ 26-Feb-82 

3 6¢ 0 § 1! 1-010 - he support for r dynamics i y "sEet arrays. New y onity points 

; 6 1! have been added, DSC and T_osc,. PLL 

3; & 64 1 ! 1-011 = Add suppor’ for decimal arrays. PLL 12-Mar 2" 

3; 663 Bee? 1 ! 1-012 = Don't ry .te o free value_descrip in SRC bse ‘nd DEST_DSC. 

; 666 068 1! Also, DEST_SA (and SRC_SA) ) should set the dtype e of the src buffer to Z only 
; «667 0067 1! if the array is dtype 34,2 BAS $331 ORE_BFA reau res the two data 

; oO 0068 1! types to match. 19-m 

3 9 B06? 1! 1-813 - Add support for obyytigty diaens{oneg, arrays. PLL 5-Apr-1982 

3 0 0070 1 ! 1-014 = Fix CHSMOVE in 

; 71 0071 1 ! 1-015 = Fix DEST_SA. STR RSCOP PY_R expects 4 descriptor for the destination, 

; g B05§ : end 5h dk an riptor must be constructed for static string arrays. 

3; «74 0074 1 ! 1-016 = Fix DEST "SA again. CHSHOVE updates destination pointer, not source 
tae. 0075 1! poinser.. Pel 10-m ner= 1982 

[a 0076 1! 1-017 - SRC_SA for virtual arrays - nulls are stripped off on a per 

; 77 0077 1! glengnt basis 

; | «678 0078 1! 2. Fix DEST _SA for virtual arrays - dest Len. ,muet reflect Length 

; 0079 1! leon in statement or be default = Length 

; ®& 0080 1! - Fix DEST_SA for arrays of RFAs or RECORDs - “Length found in 

; (OBI 0081 1! descri tor must be used. DG 25-Jan-1984 

; & 0082 1 ! 1-018 = Fix 1-017 (2). By simply null-filling the rest of the virtual 

; § 0083 1! array element, the LEN function will work correctly. DG 14-Feb-1984 

; 084 1! 1019 - tines some bugs in SRC_SA: 

s 65 085 1! . Virt arrays of RFAs or RECORDs must have their element Length 

; 68 0086 1! be a@ power of 2 (not found when Leek inp in descriptor) 

.) i 4 , = Virt arrays of RFAs or RECORDs should not go thru the null 

: «688 088 1! actual ef ee a poke ,saetn because the length in the descriptor is the 
3; w 0089 1! ctua ement length 

; 0090 1! : CHSCOPY is used for virtual arrays (instead of CHSMOVE), so that 

; Ww 0091 1! a ene is specified and the element Length is less, blank 

3 4 Bas +! padding wi i be accomplished 

; 0095 1 ! 1-020 - on a MOVE FROM to a static strin orrey if the Length is less than 

; 0094 1! then + oo Length, we should blank f (lt. MDL 12- pr-1984 

: + 0095 : leo 

; OF 0097 1 !<BLF/PAGE> 
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SWITCHES: 


+33 eth Bliss-32 V 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


LINKAGES: 


REQUIRE ‘*RTLIN:OTSLNK'; 
' 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
BASSMOVE_ARRAY : NOVALUE 
SRC_NA :~CALL_CCB NOVALUE, 


INCLUDE FILES: 


REQUIRE ‘RTLML:OTSLUB'; 
REQUIRE ‘RTLML:OTSISB'; 
REQUIRE *RTLIN:RTLPSECT'; 
LIBRARY ‘RTLSTARLE'; 


MACROS: 

NONE 
EQUATED SYMBOLS: 

NONE 
PSECTS: 
ECLARE_PSECTS (BAS); 
! OWN STORAGE : 

NONE 

EXTERNAL REFERENCES: 


Define Linkages 


MOVE an array 

Source is numeric array 
Source is string array 
Destination is numeric array 
Destination is string array 
Source is descriptor 
Destination is descriptor 


LUB definitions 

ISB definitions 

Macros for defining psects 
System symbols 


Declare psects for BAS$ facility 


4.0- 
BASRFL.SRC JBASMOVE 


AR 


74 
-B52;1 
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3 
(2) 


‘passnove. ARRAY 15500-1984 90:62: 3 AX-11 Bliss-32 V4,0-7 
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ssseessrezessess © 


255:21 BASRTL. SRC JBASMOVEAR. : 2:1 


983 (1 hie BOUT INE 
984 1 BASS$CB : JSB g0_6e! NOVALUE, ' Load current CCB 
985 1 Bassssi Oe: WOVALO P ! Signal fatal error 
9 1 BASSSSTOP_1O : NOVALUE, ! Signal fatal I/0 error 
1 BASSEUNOLE VA Perch : NOVALUE, ' Fetch entire virtual array 
9 3 1 BASSSWHOLE VA_STORE : NOVALUE, ' Store entire virtual array 
9 1 BSFREE VA, ' Dealloc memory 
1 LIBSGET 0M, ! Alloc memory 
4 : * STRSCOPY_R; ! Copy a string by reference 
398 : The following are the error codes used in this module. 
995 1 
2398 1 EXTERNAL LITERAL 
344 1 BASSK_PROLOSSOR : UNSIGNED (Be ’ rere lost, sorry 
998 #1 BASSK_MOVOVEBUF : UNSIGNED (8), ' MOVE overflows buffer 
+444 : BASSK_NOTIMP : UNSIGNED (8); ! Not implemented 
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: 75 1 GLOBAL ROUTINE BASSMOVE_ARRAY ( ! MOVE an array 
7 § rt : REF BLOCK S BYTE) ' Source: buffer or arra 
7 DEST : REF BLOCK C6, Bytes, i Dest nation: array or buffer 
LEN ! Optional length, for strings 


a] 


) : NOVALUE = 


ae 
FUNCTIONAL DESCRIPTION: 


Within a MOVE statement, move an array. This routines decodes its 
parenesers to move either an array to the buffer, or the buffer 
© an array. 


LSSSLERFAN=AS SS 


a at a ae es a a 9 2 9 9 9 2 ss 


SIDE EFFECTS: 


Signals if an error is encountered. 
Updates the buffer's address and count to reflect the movement 
of the array. 


GERFUNOISS 


PIP IMIPIMIAIM PIPPIN IIIA tt tt st dd dd 


1 
9 
18 
gis FORMAL PARAMETERS: 
818 SRC.mq.r The source, which has the form of either a static 
ot string (the buffer) or an array. 
4 18 DEST.mq.r The destination, which has the other form. 
o 333 LEN.rl.v Optional length, used with strings. 
95 2 1 IMPLICIT INPUTS: 
39 8 § OTSSS$A_CUR_LUB, accessed using BASS$$CB_GET, points to the current 
98 4 LUB. 
99 025 
00 0 $ IMPLICIT OUTPUTS: 
01 0 
4 028 NONE 
0 0 
0 ROUTINE VALUE: 
COMPLETION CODES: 
0 NONE 
0 
0 
0 
0 
0 
0 


Www 


DONO UE WN —-O OW 


BEGIN 


GLOBAL REGISTER 
CCB = K_CCB_REG : REF BLOCK C, BYTE); 


BUILTIN . 
ACTUAL COUNT; 


LOCAL 
LENGTH; ! Passed length, or -1 


LENGTH = (IF (ACTUALCOUNT () GEQ 3) THEN .LEN ELSE -1); 


Set up register CCB for error messages. 


PRERRREREEE 
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| BASSMOVE _ARRAY 16-Sep-1984 00:47:33 AX-11 Bliss-32 V4.0-74 
hei 12-80 8= 1982 90580 533 EBASRTL SRC IBASMOVEAR.B 2:1 
; 1058 2 BASSSCB_GET (; 

; 1 » i If we are not doing 1/0, or if the 1/0 is not a MOVE statement, 

; 5 ; then the compiled code has called this routine in the wrong context. 

; 1 

H : 1084 IF (.CCB EQLA 0) THEN BASSSSTOP (BASSK_PROLOSSOR); 

; 40 1066 IF ( NOT .CCB CLUBSV_OPENED]) THEN BASSSSTOP_IO (BASS$K_PROLOSSOR); 

; 4 1063 IF (.CCB CISBSB_STTM_TYPE] NEQ ISBSK_ST_TY_MOV) THEN BASSS$STOP_I0 (BASS$K_PROLOSSOR); 
3 264 1 16 

; 4g in Dispatch based on the class and data type of the source and destination 

> 26 107 

; 248 1074 SELECTONE .SRC CDSCSB_CLASS) OF 

ee i 

: 251 1079 CDSCSK_CLASS_A, DSCSK_CLASS_BFA) : 

8 26 24 BEGIN ! Source is array 

3 34 1080 IF (.DEST CDSCSB_CLASS] NEQ DSCSK_CLASS_S) THEN BASS$STOP_10 (BASS$K_PROLOSSOR); 
: 36 1088 SELECTONE .SRC CDSC$B_DTYPE) OF 

; 35 1084 ws 

: 259 1085 CDSCSK_DTYPE_B, DSCSK_DTYPE_W, DSCSK_DTYPE_L, DSCSK_DTYPE_F 

; 260 1086 DSCSK"DTYPE_D, DSCS$KDTYPE-G, DSCSK-DTYPE-H, DSCSK-DTYPE-P : 

: 261 108 4 BEGIN ! Source i§ numeric array 

; 6¢ 1088 4 SRC_NA (.SRC, .DEST); 

ie BY > 

3 265 1091 CDSCS$K DTYPE_T, DSCSK_DTYPE_Z] : 

; 266 1038 4 BEGIN ! Source is string array or record 
; 267 1095 4 SRC_SA (.SRC, .DEST, .LENGTH); 

OY - 

> 270 1096 CDSCSK_DTYPE_DSC) : 

3; 271 1097 4 ! Source is descriptor 

; Le: 1338 4 SRC_DSC (.SRC, .DEST, .LENGTH); 

: hi 1500 = 

: 275 1101 COTHERWISE) : 

: 7 11 § BASSSSTOP_IO (BASS$K_PROLOSSOR); 

: z 138 TES; 

; 3 1108 END; 

; 281 1109 CDSC$K_CLASS_S) : 

3 5g 1108 BEGIN ! Source is buffer 

; 284 1110 SELECTONE .DEST COSC$B_CLASS) OF 

: 85 aE SET 

; 89 118 CDSCSK_CLASS_A, DSCSK_CLASS_BFA) : = 

; 288 1114 4 BEGIN ! Destination is array 
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5 
BASSMOVE_ARRAY 1b-se =1984 00:47:33 AX-11 Bliss-32 V4.0-74 Pa 7 
‘W020 ae tae ik ee He pre ih ht oh 9 03) 
; 289 1115 4 
: 290 1116 4 SELECTONE .DEST COSCSB_DTYPE) OF 
BS - 
: 38 W415 4 CDSCSK_DTYPE_B, DSCSK_DTYPE_W, DSCSK_DTYPE_L, 
+ 29% 1120 4 DSCSK-DTYPE-F, DSCSK-DTYPE-D, DSCSK-DTYPE-G, 
: 295 1121 DSCSK“DTYPE-H, DSCSK"DTYPE-Pd : 
; 36 11 ¢ BEGIN ! Déstination is numeric array 
: 29 11 DEST_NA (.SRC, .DEST); 
: 298 1124 4 END; 
; 299 1125 4 
: 300 11 6 4 CDSCSK_DTYPE_T, DSCSK_DTYPE_Z] : 
; 301 11 2 BEGIN ! Déstination is string array 
: 0¢ 1128 DEST_SA (.SRC, .DEST, .LENGTH); 
: 30 i 9 4 END; 
: 305 1131 4 CDSCSK_DTYPE_DSC) : ; 
3; 306 11 ; 5 BEGIN ! Destination is descriptor 
: 307 1133 5 DEST_DSC (.SRC, .DEST, .LENGTH); 
: 308 1134 4 END; 
F 09 1135 4 
: 310 1136 4 COTHERWISE) : 
: 311 1137 4 BAS$$STOP_IO (BASS$K_PROLOSSOR); 
3 312 1138 4 TES; 
: Hi 1139 4 
: 314 1140 3 END; 
: 315 1141 
: 316 1148 COTHERWISE) : 
: 317 114 BAS$$STOP_10 (BAS$K_PROLOSSOR); 
: 318 1144 3 TES; 
: 319 1145 3 
; 320 1146 END; 
$ $5) 1147 
: 32 1148 COTHERWISE) : 
: 32 1149 BAS$$STOP_10 (BASS$K_PROLOSSOR); 
: 3 4 1150 : ES; 
; 325 1151 
3 326 1138 2 RETURN; 
: 327 1153 1 END; ! end of BASSMOVE_ARRAY 
.TITLE BASSMOVE_ARRAY 
“IDENT \1-020\ 
-EXTRN BASS$SCB_GET, BAS$$STOP 
-EXTRN BASSSSTOP_10, BASSSWHOLE_VA_FETCH 
-EXTRN BASSSWHOLE VA_STORE 
-EXTRN LIBSFREE_VA, CIBSGET_VM 
-EXTRN STRSCOPY'R, BASSK_PROLOSSOR 
-EXTRN BASSK_MOJOVEBUF 
-EXTRN BASSK~NOTIMP 
-PSECT _BASSCODE.NOWRT, SHR, PIC.2 
O8FC 9000 .ENTRY BASSMOVE_ARRAY Save R2,R3,R4,R5,R6,R7,R11 = 1001 
57 006 ef 9A 0000 MOVZBL #BAS$K PROLOSSOR, R : 
6 000000006 00 9€ 00006 MOVAB  BASS$STOP_IO, R6 ; 
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1 
1 
91 00000 
1F $1 
DO 0001 
11 0001 
TE eNOIe 28: 
be boust 
12 000 2 
ipa 
Es $09 F 3$: 
A 8 3 
FB 00036 
91 00039 4$: 
13 Boy E 
9a 00 ‘3 
FB 0004 
po Bo Ree 5$: 
A 0004A 
91 O004E 
13 00051 
91 00053 
12 00057 
DO 00059 6$: 
91 00050 
13 00061 
9A 00063 
FB 00066 
9A 00069 7$: 
91 0006D 
1F 00070 
91 0007 
1B 0007 
91 00077 8$: 
1F QOO7A 
91 0007C 
1B 0007F 
91 00081 9$: 
13 00084 
91 00086 
1F 00089 
91 00088 
1A 0008 
8B 830 10$: 
FB 0009 
04 ea 
oe 0098 11$: 
13 QOO9A 
91 0009C 
12 0009F 
BB QO0A1 12$: 
FB OO0A 
os OA 
1 - 138: 
He 
ib 0080 


33 AX=11 BL isg-32 W4 20-748 

1 BASRTL.SRCJBASMOVEAR.B32;1 
(AP), #3 

1$ 

LEN, LENGTH 

#1 LENGTH 

BASS$$(B_GET 

if 


R7, =(SP) 
#1. BASS$$STOP_IO 
-143(CCB), #48 
5$ 
R7, =-(SP) 
#1, BASS$STOP_IO 
(R$), RO 
RQ. wi 
RO, #191 
14$ 
EST, R4 
(R45, #1 
R7, 


7, =(SP) 
1; BAS$$STOP_IO 
(R3 


», R2 
a 

#8 
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Re, #14 
#*M<R3,R4,R5> 


#3, SRC_SA 
R2, #24 


#°M<R3,R4 RSD 
#3, sré_psc 
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BF 
0000v CF 
0000v CF 
0000v CF 


_BASSCODE + 0000 


290 bytes, Routine Base: 


3; Routine Size: 
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| BASSMOVE _ARRAY 1o~sen~ 138% 00 e238 AX-11 Bliss-32 V4.0-7 
eee 14-Sep-1984 11:55:21 BASRTL. SRC BASMOVEAR. 8 2:1 
5 0 1155 1 ROUTINE SRC_NA ( ! MOVE a numeric array 

: 1 11 § 1 SRC_: REF BLOCK C, BYTE) ' Source: array 

: é 1157 1 DEST : REF BLOCK (8, BYTE) i Destination: buffer 

s 1158 #1 ) : CALL_CCB NOVALUE = 

: 4 1159 1 

; 5 1160 1 !4¢4 

: 3 § 1393 : FUNCTIONAL DESCRIPTION: 

: $36 1168 : Within a MOVE statement, move a numeric array to the buffer. 

; 340 1165 1 | FORMAL PARAMETERS: 

: 341 1166 1! 

; og 1167 1: SRC.rx.da The source, a numeric arr 

; 34 1168 1: DEST.maq.r The destination, the 170 Salter; It is updated to 
> 344 11469 1! reflect the array. 

s 345 1170 1: 

; 346 1171 1! IMPLICIT INPUTS: 

: 347 1106 1 i 

3 <5 1307 : CCB, which is used only to provide good error messages. 

3 350 1175 1°! IMPLICIT OUTPUTS: 

3 355) 1176 1: 

5 226 77 33 NONE 

3. 3 1178 1! 

s 356 1179 1 ! ROUTINE VALUE: 

s 355 1180 1 ! COMPLETION CODES: 

; 356 1181 1: 

s Sor ise 1: NONE 

: 358 1183 1! 

; 359 1184 1 ! SIDE EFFECTS: 

; 360 1185 1! 

3; 361 1186 1: Signals if an error is encountered. 

; 362 1187 1: Updates the buffer'’s address and count to reflect the movement 

; 363 1188 #1! of the array. 

3 364 1189 1: 

; 365 1190 1 i- 

: 366 1191 1 

s 367 ee 2 BEGIN 

Z 368 1193 2 

3; 369 1194 2 eet REGISTER 

3: 370 1195 2 CCB : REF BLOCK C, BYTE); 

: 371 1196 2 

: 5372 1197 2 LOCAL 

s 3735 1198 § LEN; ' Length of array elonents 
: * 133% ' (needed for decimal) 

5s + 

: 376 1201 3 i The total pater of bytes in the ecrer. must not be greater than the 

: 77 1202 i Naps senges of the buffer. If this is an array of rumen te descriptors, 
: 8 1304 i C_DSC ready checked for the MOVE overflowing the buffer. 

: 380 1205 

s 381 1206 IF t. SRC CDSCSB_DTYPE] NEQ DSCSK_DTYPE_DSC) AND 

s $86 1208 ~SRC COSCSL_ARSIZE] GTRU .DEST COSC$W_LENGTH)) 

3; «384 1209 BASSS$STOP_I10 (BAS$K_MOVOVEBUF ); 

: 385 1919 

5 86 1211 '¢ 
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! A memory numeric array can be moved in one instruction. A virtual array, 
: however, must call the fetch routine. A dynamically mapped numeric array 
! is in memory but elements may not be stored contiguously. Therefore if 
this is an array of descriptors, perform the move element by element. 


SRC COSCS$B_CLASS] EQL DSCSK_CLASS_A 


if. 

THEN 
BEGIN ! memory array 
Ee COSCSB_DTYPE] EQL DSCSK_DTYPE_DSC 


natty ! dynamically mapped array 


END_ADDR; 
END_ADDR = . SRC COSCSA_POINTER] + .SRC CDSCSL_ARSIZE] - .SRC CDSC$W_LENGTHI; 
' addr of last desc 
INCR DSC_PTR FROM .SRC COSCSA_POINTER] TO .END_ADDR 
BY .SRC CDSCSW_LENGTH) DO 
BEGIN 
MAP 
DSC_PTR : REF BLOCK (8,BYTE 
LEN = (TF .D 
THEN 


Ss 

( 

ELSE . 

DEST CDSCSA_P 
L 


. 


DEST ); 
.DEST COSCSW_LENGTH] = .LEN: 


C 

M3 ] = CHSMOVE (.LEN, .DSC_PTR CDSCSA_POINTER), 
DEST CDSC$W_LENGT 
END; 

END 
ELSE f 

BEGIN ' numeric array 

LEN = (CIF .SR SC$K_DTYPE_P 

T ( + 13 * (.S5RC CDSCSL_ARSIZEJ/ .SRC COSC$W_LENGTH]) 


EN, .SRC CDSCSA_POINTER], 


HEN 
ELSE 

DEST CDSC$A_P 
.DES 

DEST CDSC$W_LE 

END; 

END 
ELSE 


¢ 
§ 
0 


l 
) 
COSCSL_ARSIZE]/ .SRC COSC$W_LENGTH]) 
LEN; 

N; 

END; ! of SRC_NA 


O7FC 00000 SRC_NA: .WORD Save R2,R3,R4,R5,R6,R7,RB,RI,R10 ; 1155 
5E 04 C2 00002 SUBL2 #4, SP 
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212 bytes, Routine Base: 


6 | 
fo Sep tate 90:4 3 AX-11 Bliss-32 V4.0-74 Page 13 | 
14-Sep-1984 :21 BASRTL.SRC JBASMOVEAR.B32;1 (4) 

0 11 000C8 BRB a 3 
g 08 OOCA 10$: MOVL (R353), LEN : 1256 
7 CO OO00CD 11$: ADDL LEN, (R9) 3; 1257 
57 A2 00000 12$: SUBW LEN, (R8) : 1258 
04 00003 RET : 1261 


-BASSCODE + 0122 


[ 
oe 
| BASSMOVE_ARRAY 16-Sep-19 2:47:33 AX-11 Bliss-32 V4.0-7 Page 14 
bets 19=808- 1382 90:90:37 BASRTL.SRCJBASMOVEAR, 5 2;1 . (5) | 
: 4 1 6¢ 1 ROUTINE SRC SA ( ! MOVE a string array 
; 439 1263 1 SRC": REF BLOCK [ ¢ OxteD i Source: array | 
: 440 1264 1 DEST : REF BLOCK C, ByTed, i Destination: buffer 
3; 441 1265 1 LENGTH i Limit on string size | 
; 44 1 68 1 ) : CALL_CCB NOVALUE = 
| a 1568 | tee | 
3 '¢ 
3 at ! e ! : FUNCTIONAL DESCRIPTION: 
: ret § ; a } ; Within a MOVE statement, move a string array or record to the buffer. 
; 449 78 | FORMAL PARAMETERS: 
: 651 1275 1: SRC.rx.da The source, a string array or reco 
; 45 1276 1! DEST.mq.r The destination. the 1/0 buffer. it “is updated to 
; 45 1277 1! reflect the arra 
; $28 : 4 : } LENGTH. rl.v -1 or Limit of Length of string to copy 
: 43 80 i IMPLICIT INPUTS: 
: 458 1 S 1! CCB, which is used only to provide good error messages. 
; 459 1283 1! 
3 ro 6 1see ; } IMPLICIT OUTPUTS: 
: 46 1286 1! NONE 
; 46 1589 1! 
3; 464 1288 1 ! ROUTINE VALUE: 
3 re Hs 1s : COMPLETION CODES: 
en ees 
; 469 13398 i SIDE EFFECTS: 
: 671 1295 1 i Signals if an error is encountered. 
3 467 1296 1! Updates the buffer's address and count to reflect the movement 
; ret, 344 ; of the array. 
BY 
> 477 1301 BEGIN 
; 478 1308 
; 679 130 cateamt REGISTER 
; 480 1304 CCB : REF BLOCK C, BYTE); 
ait: 1308 LOCAL 
; <3 0g POWER OF 2: VECTOR C10, WORD] 
: 685 1309 joe have to check up to 512 because the compiler 
; 686 1310 i allocates virtual arrays so that they will not 
3 rt +4 : 1} a cross block boundaries. 
: r+ ! 18 — INITIAL ( WORD(1,2,4,8,16,32,64,128,256,512) ), 
: 491 1315 ’ 
; 49 1 18 '¢ 
; 49 131 i Dynamic se serine arrays will be arrays of descriptors, so the pointer field 
3; 694 1318 i must be used to get to the string. The elements in a static string array 
| 


a a a eae eS 


6 
‘QASSHOVE ARRAY 1S-seo-1984 0:47:55 yayett BL ing= 52 40-742, 


| 
E 495 1 Ys ' will be the strings themselves. In both cases do an element by element move 
-* 1 ! in order to accomodate padding, etc. which may be necessary. irtual arrays 
i; 49 1321 ' must call the virtual array fetch routine. 
im ig 
; $00 1304 IF .SRC CDSC$B_CLASS] EQL DSCSK_CLASS_A 
; 501 1325 THEN 
2 bec 
: ape ; $ memory array 
; 206 1330 dF «SRC CDSC$B_DTYPE] EQL DSCSK_DTYPE_DSC 
. ne 76 
: 219 : : ? ; dynamic strings 
; 21 1336 4 LOCAL 
3 317 ; HM 2 END_ADDR; ! addr of Last elem of array 
; 319 i 33 é END_ADDR = .SRC CDSCSA_POINTER] + .SRC CDSCSL_ARSIZE] - .SRC CDSCSU_LENGTHI; 
; 212 ' ry ? Loop thru array moving each element to buffer. 
; 519 1 § 4 INCR DSC_PTR FROM .SRC CDSCSA_POINTER] TO .END_ADDR BY .SRC CDSC$W_LENGTH) DO 
: 520 1344 5 BEGIN 
: 35) te 2 MAP 
; 1347 5 DSC_PTR : REF BLOCK (8,BYTE): 
: 525 1349 ; LEN = (IF .LENGTH LSS 0 THEN .DSC_PTR CDSCS$W_LENGTH] ELSE .LENGTH); 
; 526 1350 '“dest Length depends on if 
3 Ser 1351 2 ! LENGTH parameter given 
; 528 1 3 IF .DEST COSC$W_LENGTH] LSSU .LEN 
; 529 1353 5 THEN 
; 550 1354 5 BASSSSTOP_IO (BASSK_MOVOVEBUF ); 
; 531 1355 5 DEST CDSCSA POINTER] = CHSCOPY (.DSC_PTR CDSCS$W_LENGTH), 
: 23g 1356 : -DSC_PTR COSCSA_POINTER], 2C° *,”.LEN, 
; +53 1357 -DEST COSCSA_POINTER)); ' move string from array to 
; 534 1358 ! puffer, blank padding if 
3 3355 1359 : necessery 
FH 238 1360 DEST CDSCSW_LENGTH] = .DEST CDSCS$W_LENGTH] = .LEN; 
3 1361 ' Buffer Len must be decreased 
3 2 8 1 $¢ : ' by amt moved so check can be 
: 9 1 !' done so that further moves 
; 540 1364 § ' will not overflow buffer 
: 33 : 5 2 cm END; 
; 208 1367 § ELSE 
Pe ec ta eg 
; ee 1370 4 i static strings or records 
3 4 1371 4 te 
: seb 1 1 4 LOCAL 
3 $3 : 6 ? END_ADDR; ! addr of last elem of array 
: Fee 1375 4 LEN = (IF .LENGTH LSS 0 THEN .SRC CDOSCSW_LENGTH] ELSE .LENGTH); 


r--—-- a 


H 6 
| BASSMOVE _ARRAY 16-Sep-1984 AX-11 Bliss-32 v4.0-7 be 
bei) ee aet) 7a Lae Tm HET Ret hd Pte rT ie Oe age 8 
§ y ! | Gost te Length ha. wy FF if 
¢ f END ADDR = .SRC CDSCSA_POINTER] + “she atte Rastzes ooRe COSC$W_LENGTH); 
| ? | “Lees thru array moving each element to buffer. 
8 § INCR ELEM_PTR FROM .SRC CDSCSA_POINTER] TO .END_ADDR BY .SRC CDSC$W_LENGTH) DO 
60 
61 5 IF .DEST CDOSCSW_LENGTH] LSSU .LEN 
$¢ Bg TH *. . 
6 $$5T0P 10_ (BASSK MOVOVEBUF ) 
64 8s DEST "tbs sa polareyy * EusCoPY ¢ (SRC COSCSW_LENGTHI, 
564 90 BEST “CDSESA ROTTLTE ' move ers ot from array 9 
rth 4 : buffer, blank padding if 
569 9 DEST CDOSCSW_LENGTH] = .DEST coscéu LENGTH? 
570 94 ' Buffer len Fein “be decreased 
2) 95 i by amt moved so check can be 
i 96 ! done so that further moves 
3 97 ! will not overflow buffer 
74 98 END; 
75 END; 
18 ase’ 
78 


A a CDOSC$B_CLASS] EQL DSCSK_CLASS_BFA 
BEGIN 
i “virtual array 


*DEST_LEN, ' buffer element len +. 
ELEM_LEN, ! array element Len 
m_COC; ! virtual memory po heer 


LIBSGET_VM (SRC CDSCSL_ARSIZE], MEM LOC); 
' alloc memory for virtual array 
BASSSWHOLE_VA_FETCH (.SRC, .MEM LOC); 
! move array to memory 
ELEM. LEN = .SRC COSCSW_LENGTH); 


it we are dealing with an array of RFAs_or RECORDs, 


: ELEM_LEN must be changed to a power of 2 since that is 
the Virtual array element's true size. 


iF .SRC CDSCSB_DTYPE) EQL DSCSK_DTYPE_Z 
BEGIN 
ELEM_LEN = (INCR I FROM 0 TO 9 
IF .ELEM_LEN LEQ .POWER_OF_2 [.1) 


EXITLOOP .POWER_OF 2 [.1}); 
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v4. 
BASRTL.SRC BASMOVERR. 231 


$08 ; a END; 
| : 5 ; Loop thru array moving each element to buffer. 
1 INCR PTR FROM .MEM_LOC TO (.MEM_LOC + .SRC CDSCSL_ARSIZE] - .ELEM_LEN) 
, BY .ELEM_LEN 00 
: BEGIN 
1 LOCAL 
1 END_PTR; ! ptr to end of array element, 


! not including nulls 


+ 


Trailing nulls must be removed. Calculate the length of 
actual characters not including nulls on a per character 


basis. 

NOTE = virtual arrays of RECORDs or RFAs should not have 
the nulls removed. Reason being desc length reflects the 
RECORD or RFA size and not the virt array element size. 


END_PTR = .PTR + .SRCCDSCS$W_LENGTH] = 1; 
! point to Last char in array 


! element 
-SRC COSCSB_DTYPE] NEQ DSCSK_DTYPE_2 
UNTIL .END_PTR EQL (.PTR = 1) DO 
BEGIN 


—SOOONOUS WN SHOVOONOUS WO 


'¢ 
Go backwards to Ist char looking for 1st non nuli. 


if CHSFAIL (CHSFIND_NOT_CH (1, .END_PTR, %8°0*) ) 
END_PTR = .END_PTR = 1 


BNO OSS IPSS OO SSS SSCS OSS 
ose SS Sons 


PAGAAAOA ACO MIINIVNIVIVIVIVIVIE SESS LL LEE 


BRE ES SSNS ARAN HL SSONOME WN OOO NE PUN ODO NOU PUN Owe 


' done so that further moves 
will not overflow buffer 


LIBSFREE_VM (SRC COSCSL_ARSIZE], MEM_LOC); 
! déalloc memory used for array 
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641 

642 

643 

644 EXITLOOP; 

645 

646 7 END; 

647 7 LEN = .END_PTR = .PTR + 1; ! Lenght of element w/o nulls 
648 7 DEST_LEN ="(IF .LENGTH LSS 0 THEN .LEN ELSE .LENGTH); 

649 7 ' dest length depends on if 
650 7 ' LENGTH parameter given 

651 7 IF (.DEST COSCS$W_LENGTH] L358 LEN) THEN BASS$ST P_10 (BASSK_MOVOVEBUF ); 
636 7 DEST CDSCSA_POINTER] = CHSCOPY (.LEN, .PT ’ 

65 7 -DEST_LEN, .DEST COSCSA_POINTER)); 
654 7 ' move string from array to 

655 7 ! puffer, blank padding if 

636 8 } necessery 

65 8 DEST CDSC$W_LENGTH) = .DEST CDSC$W_LENGTH) - .DEST_LEN; 

658 8 ' buffer len must be decreased 
659 8 ! by amt moved so check can be 
660 

661 

68 

66 

664 
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1F 
0200 0100 0080 0040 0020 0010 0008 0004 0002 0001 tate P.AAA: 


10 
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57 
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F | 
: $66 133 3 
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#1, BASSS$STOP_I0 
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DSC_PTR, ERD_ADDR 
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ELEM_PTR 
PTR 
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MEM_COC, PTR 


N, DEST_LEN 
LENGTH, DEST LEN 
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OP_10 
M_PTRY, #32, LEN, @4(R6) 


EM. > END_ADDR 


S$WHOLE_VA_FETCH 
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POWER_OF 201), ELEM_LEN 
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; Routine Size: 404 bytes, 


Routine Base: 


_BASSMOVE ARRAY 
20 
8 it 
006 8F 9 
000000006 06 FB 
SA 0 2¢ 
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000000006 00 03 Fe 09 
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248 
WBASSK MOVOVEBUF , =(SP) 
#1, BASSSSTOP Jo 

LEN, (PTR), #32, DEST_LEN, a4(R9) 


R3, 4(R9) 
DEST_LEN, @DEST 
PTR 


ELEM~LEN 
TR, (SPS 

MEM_LOC 

eck ) 

#2, LIBSFREE_VM 
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1-020 13-88-1382 9 60:33 EBASRTL SRE IBASMOVEAR.B 231 ° (6) 
; 670 1493 1 ROUTINE SRC_DSC ( ! MOVE an array of dsc 
; 671 1494 1 SRC_: REF BLOCK C, BYTE) ' Source: array 

: 676 1495 1 DEST : REF BLOCK ¢, Bytes, i Destination: buffer 
: Of 1238 1 LENGTH ! Limit on string size 
> 674 1497 1 ) : CALL_CCB NOVALUE = 

; 675 1038 1 

; 676 14 1 lee 

; ort 1209 ’ } FUNCTIONAL DESCRIPTION: 

; 679 1288 1! Within a MOVE statement, move an orcey of descriptors to a buffer. 
; 680 1503 1! The descriptors may be string descriptors or numeric descriptors 
; 681 120% 1! (in the case of dynamically mapped variables). This routine 

; 68 1505 1! determines the dtype of the descriptors and dispatches to the 
; 68 1208 1! appropriate routine. 

3; 684 1507 1! 

; 685 1508 1 ! FORMAL PARAMETERS: 

; 686 1509 1! 

3; 687 1510 1! SRC.rx.da The source, an array of desc 

; 688 1511 17! DEST.mq.r The destination, the 1/0 buffer. It is updated to 
; 689 1216 1! reflect the array. 

3 ony 1eiz . } LENGTH. rl.v -1 or Limit of length of string to copy 

; 69 1515 1! IMPLICIT INPUTS: 

; 69 1516 1! 

; om ae : } CCB, which is used only to provide good error messages. 

; 696 1519 1 =! IMPLICIT OUTPUTS: 

; 697 1520 1! 

; 698 1521 1! NONE 

: 699 1356 1! 

:; 700 1525 1 ! ROUTINE VALUE: 

; 701 1524 1 ! COMPLETION CODES: 

3; 702 13¢? 1! 

3; 703 1526 1! NONE 

3 704 1527 1! 

: 705 1528 1 ! SIDE EFFECTS: 

3 re 1362 1! 

3; 707 1530 1! Signals if an error is encountered. 

; 708 1531 1! 

3; 709 1336 1 f= 

; 710 1533 1 

2 Pay 1534 BEGIN 

3 ar 1535 

3; 71 1336 EXTERNAL REGISTER 

: 714 1537 CCB : REF BLOCK C, BYTE); 

3; «6715 1538 

; 716 1539 LOCAL 

: «717 1540 ELEM_DSC : REF BLOCK (8,BYTE), 

; 718 1541 NUM_ELEMS; 

3; 719 1366 

: 720 154 

: 721 1544 '¢ 

3 ose 1545 ! Set up a pointer to the first element of the array so that the dtype 
: 134 1368 and length of the descriptor elements can be determined. 

3 725 1548 

s; 2 1549 ELEM_DSC = .SRC CDSC$A_A0]; 
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1-020 19-308- 1 3b 00:90:37 SISRTL SRE IBASMOVEAR. B21 . (6) 
3; 727 1550 
; 728 1551 '¢ 
; 729 1 26 ' Now just dispatch to the appropriate routine based on the dtype in the 
; 7350 1 ' descriptor element. 
: OR) 1335 = 
gee 7 1556 SELECTONEU .ELEM_DSC CDSCSB_DTYPE) OF 
: Oz 1888 i 
; 736 1559 CDSCSK_DTYPE_B, DSCS$K_DTYPE_W, DSCSK_DTYPE_L, DSCSK_DTYPE_F 
s 737 1560 DSCSK_DTYPE_D, DSCSK_DTYPE_G, DSCSK_DTYPE_H, DSCS$K DTYPE-P4: 
3 rae 176) BEGIN ! dynamically mapped array 
; 740 1568 ! Check for overflowing the buffer here to save doing it in 
3 oe 1288 3 SRC_NA. 
; 74 1566 ; NUM_ELEMS = .SRC COSCSL_ARSIZEJ/ .SRC COSCSW_LENGTH); 
: me 1260 ; MM C.NUM_ELEMS * -ELEM_BSC COSCSW_LENGTHI) GTRU .DEST COSC$W_LENGTHJ 
3 746 1569 3 BASS$STOP_IO (BASS$K_MOVOVEBUF); 
3s 767 1570 3 SRC_NA (.SRC, .DEST); 
3; 748 1571 2 END; 
: 749 13/6 2 
; 750 1573 2 CDOSCSK_DTYPE_T, DSCSK_DTYPE_2Z]: 
: 3) 1328 § SRT_SA (TSRC, .DEST, .LENGTH); ! string or record array 
s fos 1576 2 COTHERWISE): 
: 754 1577 2 BASS$STOP_IO (BAS$K_PROLOSSOR) ; 
; 755 1578 2 
Te 1579 2 TES; 
3 757 1580 2 
3; 758 1581 1 END; ! of SRC_DSC 
001C 00000 SRC_DSC:.WORD Save R2,R3,R4 3 1493) 
54 00000000G 00 9€ 00002 MOV BASS$STOP_I0, R4 3 
52 04 AC DO 00009 MOVL SRC, R2 3 1549. 
51 10 A2 00 0000D MOVL  16(R2), ELEM_DSC F | 
50 02 Al QA Baer MOVZBL 2(ELEM_DSC), RO : 1556) 
06 50 91 00015 CMPB RO, #6 ; 1559 
9 1F ae BLSSU. _‘'1$ : 
08 0 91 OIA CMPB RO, #8 ; 
19 1B 00010 BLEQU 3$ : 
OA 50 91 OQOO1F 1$: CMPB RO, #10 3 
92 1F 4 2 BLSSU 2 : 
08 0 91 00024 CMPB RO, #11 é 
oF 1B 00027 BLEQU§ 3$ 3 
15 0 91 00029 2$: CMPB RO, #21 3 
OA 13 0002C BEQL 3$ : 
1B 50 91 O002E CMPB RO, #27 3 
8 1F oS 1 BLSSU 5$ 3 
1¢ 0 91 00033 CMPB RO. #28 : 
¢3 1A 4 BGTRU 5 : 
50 62 3C€ 00 3$: MOVZWL (R2), NUM_ELEMS : 1566 
! 


Or a 


| 
| BASSMOVE _ARRAY 
“620 


7 
16-Sep-1984 00:47: AX-11 Bliss-32 V4.0-74 Page 23 
1 12780871382 00:80:37 EBASRTL SRC IBASMOVEAR.B 2;1 9 8) 
50 0c Ag 50 7 003 DIVL3 NUM_ELEMS, 12(R2), NUM_ELEMS : 
5 $1 C 0004 MOV2WL (ELEM DSCS, R3 t 1567 
50 3 64 0004 MULL2 R3, RO : 
50 08 ac 10 00 FD 0046 CMPZ7V #0. #16, @DEST, RO ; 
07 1€ 0004¢ BGEQU 4$ ; 
7E 006 8F 9A 0004 MOVZBL #BASS$K_MOVOVEBUF, -(SP) + 1569 
64 01 FB 0005 CALLS #1, BASSS$STOP_10 : | 
08 AC DD 00055 4$ PUSHL DEST + 1570. 
3¢ DD 00058 PUSHL R : 
FD23.—sCF 02 FB 0005A CALLS #2, SRC_NA : 
04 0005F RET : 1556, 
50 D3 9060 5$ TSTL RO : 157 
05 13 0006 BEQL = 6$ : | 
OE 50 91 00064 CMPB =s RO, «#14 : 
0¢ 12 00067 BNEQ 7$ ; 
7E 08 AC 7D 00069 6$ MOVQ DEST. -(SP) + 1574 
3¢ DD 0006D PUSHL R F 
FOFS = CF 03 FB O006F CALLS #3, SRC_SA F 
04 00074 RET ; 
7E 006 8F 9A 00075 7$ MOVZBL #BAS$K_PROLOSSOR, -(SP) + 1577 
64 01 FB 00079 CALLS #1, BAS$$STOP_IO 3 
04 0007¢ RET + 1581 


; Routine Size: 125 bytes, Routine Base: _BASSCODE + 03A0 
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5820 i 12-88-1382 90:60:33 BASRTL.SRC IBASMOVEAR.B 231 “ 3 
i; 760 1286 1 ROUTINE DEST_NA ( ! MOVE a numeric array 

: 761 15 1 SRC_: REF BLOCK C8. MIRE ! Source: buffer 

; 12 4 1 DEST : REF BLOCK C, BYTE ! Destination: numeric array 

; 76 1585 1 ) : CALL CCB NOVALUE = 

> 764 1586 1 

; 765 1587 1 !44 

; 766 1588 1 ! FUNCTIONAL DESCRIPTION: 

; 767 1589 1! P 

3 ree 1239 : Within a MOVE statement, move the 1/0 buffer to a numeric array. 

; 770 1236 1 ! FORMAL PARAMETERS: 

s i 15935 1! 

3; 77 1594 1! SRC.mq.r The source, the 1/0 buffer. It is updated to account for the 

Bae. 1595 1! eytes taken from it. 

: 776 1596 1! DEST. wx.da The destination, a numeric array. 

3 we 1597 1! 

; 776 1598 1! IMPLICIT INPUTS: : 

3 vir 1599 1! : 

: ore 1e0N ' CCB, which is used only to xrovide good error messages. 

; 780 1606 1 ! IMPLICIT OUTPUTS: 

; «4781 1603 1! 

3 ee 1606 1! NONE 

3 re 1605 1! 

: 784 1606 1 ! ROUTINE VALUE: 

; 785 1607 1 ! COMPLETION CODES: 

3: «4786 1608 1! 

: 787 1609 1! NONE 

; «788 1610 1! 

3; 789 1611 1! SIDE EFFECTS: 

; 790 1612 1! . 

s 791 16135 1! Signals if an error is encountered. 

3; 792 31614 1! Updates the buffer's address and count to reflect the movement 

3; 793 1615 1! of the array. 

3 794 1616 1! 

3; 795 1617 1 !<=- 

; 796 1618 1 

; 797 1619 2 BEGIN 

3; 798 1620 2 

3; 799 1621 2 EXTERNAL REGISTER 

; 800 1622 2 CCB : REF BLOCK C, BYTE); 

; 801 1623 2 

:; 80 1624 2 LOCAL 

; 80 1og3 2 LEN; 

; 804 1626 § 

; 805 1627 '¢ 

: 806 1628 2 ! The total number of bytes in the array must not be greater than the 

; 807 ioe) 2 ! remaining Length of the buffer. 

: 806 iss) 5 

: 810 1636 IF (.SRC pesca pi ret: NEQ DSC$K_DTYPE_DSC) AND 

3 at} 1o3? a ee DSCSW-LENGTH] LSSU .DEST COSCSL_ARSIZEJ) 

; B13 1635 BASS$STOP_IO (BASSK_MOVOVEBUF ); 

: 814 1636 

; 815 16 '¢ . ? 

; 816 1638 ! Values can be moved to a memory array in one instruction. If the array 


a 


-—— 


: 1582 
1632 


~ 
lon] 
= 
— . 
9 ~ 
2 o 
o (vel = 
- ss & “ % 
oY ia | oOo 
N =x = J z - 
ue - - ad w « 
zm Oo = Ld ad . 
™m - Zz = ” ! on 
‘ca w © a = a 
oct a = uw rv . 
om + w =) co 
w> =a «J! _ w” az 
>o ett 1 ” a . 
= vv 3 w ran i 
Nm ” A s. a a 
mt a YV ~ . - . 
‘@ uw WwW om] ~ 7.) o 
or ~ a e ev (vu) [> 4 
nu o~ ww w w a . 
—a ~ wn oo ~N . w 
~n eo tw 2 _ ~ a 
@- -@ -~ ea = WM «. rt 7 
ad a a > w oO ec A w wv 
—— Ww oof a a <i nm N [4 
-—-a Ow or . ' | ns 4 9 s 
m ew a) < + w ” ~ w 
<x £3 e® Emv> a ea a a N 
=O se Qa ewvm a Wee ¥, 2 4 . az 
>w Qa —n~oe d “n2Z vn = W NO 
on @ eo- 0a w Ouse a oO | @waagms 
<=©® | = ” a a woz ~> vw a ~ o> “nn A 
~S ~ -~ara ~ ow oe fee @e vv ov oa 
~ @ ~ wnat ve cee « J j{ § «Zz . ” > wo 
m-— + «6 . _ eo met a -+ - & WW Ausss ‘= a c-¢ oTrwrw~ 
mu = > = ~ ~~ ~~ a COw YWuZ e ar) za YWBwmw 
ee ee @ eo Ho za -—" cme L =) Ww ow se 2© ' 
nw so] ov SUT w va vwws- a J nl aan 4 = 
ww “Cc ~ -— omo « vw?- WOW —-A~— te «= om WW Ure ” 
oe OS i Ee a ” art > Saaw wusZ w anw 
o- ® °o eo tuto an ze ore rt ~w ou a ea2@ 
| o-- —w i= c vo UF “ee eS Ea Wa thew - a) $ss 
| ~s rT) ~ Orevo aman OZ 3S FR wwe —-Za~ + « ee zs es 
ws e5 € o> BNaRN SGrmmraw Cx— oF=x >> ° AE | 
| oo vs vV w wero tu A Ze Ore met 
| oan oa =-Y =- =-@Q--w -. Owe 1 --UWse re} --aA0 a =: <x | 
| —— er Qa ee od mmZzor-e*s ” oz ie. we z 
s 26 ‘ z WWwWesZOM en maw <u =z t | 
aa Cc w -_ oO JU “Neem tu PAD ze _ 
| &~ee wd a °o >> tu0OOM amrmn~we | veer =O ” 
MD Vv < > oo hlUf @Or-s3 Oo ormeees wn oz w 
| ae =] 4 _ a a Wa) ) ow We wzUe eam aw Qa 
| @owr Ew ” o w <« oO Rau Set tr ws “See bY | 
oe o ” t - wUVUOVVvw*Mauvw m2z-0O0N Jone | eas 
i ec =z 4 Zz ww RAQMVVVYWEA WWWAwoG vo rtrwes oo 
c aD re —_- MWWIOW Qum@ ¢ ww Sw wow ooo 
-©e =) vw oOo a wn wo e > mMencw Y ONMY oooo 
~~ ‘ n a uw ook: wh —-3s Mav meow oooo 
3@e oat a i at OM YOUN WWI 
o ey <= - @ AarKeunr RAY BAe | wNucoe 
ww Vv a | naw a eoaoarme Qawnvra . > mw -VOO 
ww “ oa vo w erev Mw AOWW tt Yrs Ew ~ 
ec a w ”" Aa WAWYv ere pS rer} “ WORM IME So 
-©@ a . ce muy 20 YY wor a wR SS Ada 
| oe aol te] ws VY Oa wiz aF- eae *Mnw ° oda 
i vo So wa = Ow *ZOw Wwe Mw =r ~Rawl 
n— w a - oO Qa wa WwW vewo tt | 
| a > “ow « a Zwei tt -ow 20 wo wr 
| e am] w we —- ww <ZB OM QB waZz coe arm zN 
| =e ” a Oo auwti~AA ww *ZOw Own wz oo 
= ” a a- & ee w VY a wa. —- wee 
| we < @ a - vw wow “Zw tt Yr awZzo 
. aw A au a ” >aa wn -<sB PN OZ 
a vw ‘) <= @e ou Ours w= iu~ARM <w~ -Ow 
evo ‘ ” Ke Ve = ° eu Wu >a a 
} >@ « 2 a aa wuoa 2 eve ~ wun (+-2w 6 6 
eae ww Za owt w x=raa >aa w wowats 
| zac rs) Z2u4wet oz — VuNunw zu oOuw ju TS IMAAM word 
| oao ” —- ot ‘a i z os me WOU Wine | 
£e a ”Y OWL a YL a o2z vera ~ nn 
| ~ uw w wo 2 2 = ww zraaZz zs aa 
| *~o Za @4 we w Ou VuNoOw ZA iti rarer 
} — —- - Zz uw akon a 
aea-oe ” oO w ” a UM2 ww 
| 3eac w wert — = waitw ca 
“vo o_O ua w oo mnuw : | 
eer “Zz w te 
- + +4 w ”" a 
>aso ra pe 2 
c> mh w w 
"ro 
-VTE 


NOOO OI SF FT TT TANNA OR DDT FPA FAO SF FT TIN CUPID TOPE Oe 


PAST ST TTT TT TTT OMMMNMAMMNNNOOOOOOOODOORARAAAAPAAK OO 
oo SSSHSSHSGOOOOOOOOOOOGOGOGOLOSOOOOOOOOOOOS ooovono 


LL EEE EEC COO 


> 

a 

a 

a 

< 

i 

> 

zo See SS SUMS SS GEES eGR OAMRARRARSSOOS 
N 

Vo 


8050.50.60 09.00 03 99.60 89 G0 0 29 00 60.00 G0 0 GO GO GO G0 80 BO 2 BO G0 SO GD BO G5 GO Bb GO 60 60 80 60 80 HO 50 GO 80 SEDI 


| 

| 

| 

ROS a BS eS SERRA ROS SS BOS OSS BS i MOR SPOR NOS 
{O20 00.40 60 60 60 20 a0 a0 a0 Gd 60 20 | 
' 


Qe FSCS HSS HS FS FS SS FS HSS *S eS lS *S*S*S sess tS *S FSS *S HS See sce se *S*S*S te terete resrere *O*e*e*S te te *erere 


_————EE 


ae 


| 
| BASSMOVE _ARRAY 
2850 7 


Oc Ad 69 
000000006 
51 04 
6E 
04 B86 00 
50 
57 
04 862 00 
000000006 


_—w" 
oo 


WUImon 
Wrmom 


Yo F 


Ow wom — wm 
oon NOOO VO->p 


02 


01 


02 


01 


66 


MAEOVIVIE POG —-PF GWMUUUAOPro 


Cis POR OFOFd WRORORIGOUD NUN OR ORORO RD NO > NNNOWOT 


AOWwsd: POO—PO 


ab ed et a CCD 


MMSO "WOW" Oo —- 


OOQCQOOOOCOCOOoOooOooo 
OOooooceo 
nae 


oooo 


Sooo 


Dor & & & 


OoOooooooo 
ooooococKeco 
Anon Oo fOmM>oO 


Ssssssss 
So Ssss 
SUOM> OVE me 


Ssssss 
SES 


oO 
© 
a] 


97 


OM ANAM AON DS 9 $$ DO MNOM AON FN QOD ST AON OWN 9 YS MMOD PMoOOoOw 


9 MOM DOW ONS 9 “OOWODOW" OO "9 2 PONW—ODNWY" 0O-"QOwWn — 0 OWOWuI7 TF o—mM0— 


18: 


~™ 
ed 


rw 
ad td 


wn 
ww 
a 


o 
ad 


7$: 


3 BASRTL.SR 
1 

D 

{ 

#BASSK_MOVOVEBUF, -(SP) 


$$ 
BASS$$STOP_I0 
Re 


3 

4 

FST RO 

g, #16, (RO), 12¢RO) 
T 


R3 
R8 
can 
R2), #24 
», 4(R2), RI 
», R 


3 
6 ‘al EN ADDR 
R2), BSC_PTR 


DSC_PTR), #21 
(DSC_PTR), RO 
a 

1(RO), LEN 


(DSC_PTR), LEN 
LEN, a@0(R8), a4(DSC_PTR) 
LEN. (R8) 


1 
1 
( 
( 
( 
1 
( 
( 


: 


a WN DA-“AMwOWS OB 


LEN, (R9) 

R10. DSC_PTR 

psc _PTR, END_ADDR 
(R2), #21 

(R2), RO 


(R3), LEN 
itt @0(R8), a4(R2) 
(R8) 


BASSSWHOLE_VA_STORE 


2 21 
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; Routine Size: 212 bytes, Routine Base: _ 


Be 
16-Sep-1984 00: 
14-Sep-1984 11:5 


57 CO O00CD 11$: ADDL2 
57 A2 00000 SUBW2 
04 00003 
BASSCODE + 0410 


3 
:2 
L 


3 VAX-11 Bliss-32 V4.0-74 
1 CBASRTL.SRCJBASMOVEAR.832;1 


EN, (R8) 
LEN, (R9) 


_— Pe 


| BASSROVE ARRAY 
| 
687 
| 
$2 690 
Pees 
fs 
7 94 
74 95 


a 


02.09 Cp CD CD OD CD CD CD 
~~ 
NO 
Le 


O00 
Sse 
22 


FESS 


- 
Seszeses 


RIPVRIMAIMMIPYAINIAINININIPIAINIRY a nn ik ak at ot ot 2 


SSEes 


PETES SS STE 


38 


NOMINIMNONININUN) 2 2 2 


SESsaF 
WN —O DONO VE WIN — OC OONOU FW O0@ 


Our wn—o 
uw 


Set et et et ot ot ot 
ee ee ee ee ee ee ee el ee ee el el el el el el el el el el el el el el el el el el el el el el el el el el el el el el 


NNN NOOO OOOOH 


DOOOOOOOVONONOVOO 


m0 0OO~ 
FF OF oe eee 
Wwr—O 0 


hore 


Liepesepahepbeealaininenieimenneenbabtmaile 


7 
1$-Sep-1964 00:47:55 yan=dt BLisg-32 v4.02 


ROUTINE DEST_SA ( ! MOVE a string array 
er 


SRC_: REF BLOCK 8. BYTE), ! Source: buff 
DEST : REF BLOCK [, BYTEJ, 
LENGTH 


) : CALL CCB NOVALUE = 


' Destination: array 
! =1 or Length of each string 


+e 
FUNCTIONAL DESCRIPTION: 


Within a MOVE statement, move the 1/0 buffer to a string array or 
array of records. 


i FORMAL PARAMETERS: 


SRC .mq.r The source, the 1/0 buffer. This is updated to account for 
the bytes taken from it. 
DEST .wx.da The destination, a string array or array of records. 


i IMPLICIT INPUTS: 


CCB, which is used only to provide good error messages. 


i IMPLICIT OUTPUTS: 


i ROUTINE VALUE: 
i COMPLETION CODES: 


i SIDE EFFECTS: 


Signals if an error is encountered. 
Updates the buffer's address and count to refiect the movement 
of the array. 


BEGIN 


EXTERNAL REGISTER 
CCB : REF BLOCK C, BYTE); 


LITERAL 
K_DEFAULT_STR_LEN = 16; 


LOCAL 
POWER OF 2: VECTOR (10, WORD] 


i Only have to check up to 512 because the compiler 
' allocates virtual arrays so that they will not 
cross block boundaries. 


~ INITIAL ( WORD(1,2,4,8,16,32,64,128,256,512) ), 


74 
-B52;1 
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BASSMOVE _ARRAY 16-Sep-19 247: AX-11 Bliss-32 V4.0-74 
a8 18738871984 99530:33 EBASRTL Re BASMOVEAR .852;1 
'¢ 
: Dynamic string arrays are arrays of descriptors, while static strin 
! arrays contain the strings themselves. In both cases, do an elemen 


: by element move so that padding can be done if necessary. Virtual 
arrays must use the virtual array store routine. 


Mw 


IF DEST CDSCSB_CLASS] EOL DSCSKCLASS_A 

BEGIN 

'¢ 

memory array 

if «pest CDSCSB_DTYPE} NEQ DSCSK_DTYPE_DSC 
BEGIN 
; static strings or records 
LO 


SSN 
IFISISISIA ES 


WO DONO VE WN" O CONOuUse 


AAC UIMMUITVT 


CAL 
END_ADDR; ! addr of Last elem of array 


LEN = CIF .LENGTH LSS 0 THEN K_DEFAULT_STR_LEN ELSE .LENGTH); 
' dest Length depends on if 
! LENGTH parameter given, 
! defaults to 16 

it ameet COSCSB_DTYPE] EQL DSCSK_DTYPE_2Z 


LEN = .DEST COSC$W_LENGTH); ! if we are dealing with an 
' array of RFAs or RECORDs, 
! get the Length from the descr 


END_ADDR = .DEST CDSCSA_POINTER] + .DEST CDSCSL_ARSIZE) - 
-DEST COSCSW_LENGTHT; 


; Loop thru array moving each element from buffer to it. 


SBVSARAISSSISAF 


DEB BPP PPP DASA IE BE EEE EEE EEE EE PEPE EEE PE AIAIWIPPPonononononorfp 


PAAMAAAMMIUIUT 
DONA MAS WN (OO CONAVLSWN 0 OONOUE WN O00 


80 ; 
960 81 INCR ELEM PTR FROM .DEST COSCSA_POINTER] TO .END_ADDR 
961 Be BY .DEST CDSCS$W_LENGTH) DO 
368 8 EGIN 
96 84 
eee 85 IF (.SRC COSCSW_LENGTH) LSSU .LEN) 


BASSSSTOP_10 (BASSK_MOVOVEBUF ); 
CHSCOPY (.LEN, .SRC DSCSA_POINTER, ZC° *, .DEST CDOSCSW_LENGTH), .ELEM_PTR); 
| array, Blank padding Tf 


St 


a aap Sime, in Sin in Pe, Bie Bt Be Be i i i i i i Be Bi te te fe in BeBe bebe pent te i i | 


ee ee ee ee ee ee ee ee eee 
-—O0on 


968 4 necessary 

970 SRC COSCSA_POINTER] = .SRC COSCSA_POINTER] + .LEN; 

971 : update buffer pointer 

378 79 SRC CDSCSW_LENGTH] = .SRC COSCS$W_LENGTH) - .LEN; 

97 794 T buffer len must be decreased 
974 795 ! by amt moved so check can be 
975 98 ! done so that further moves 
ore 79 ! will not overflow buffer 

97 738 END; 

978 7 END 

979 800 ELSE 


c- 


Page 39 
: 147: AX-11 Bliss-32 ity 2:1 a 
! 1E-Sep-1984 00:47:55 yan=d1 BLieg-32 v4 

| PgR pena 


| 


BEGIN 

; 1802 d :° ic strings 
E 2 1 i : 4 | ¢ ' desc for string within array 
E 3 105 ¢ LOCASEST ITEM : REF BLOCK (8, ormerel Saar of tsee clas of array 
5 88 : a ‘ on TRLLEN ELSE LENGTH); 

; 1307 6 THEN K_DEFAULT_STR_ h depends on if 
F 987 : 09 d eo Aa eS : oP Ehetn Seraserer given, 

; 988 : % 4 i defaults te te ectuel tte 
: 990 1Bi2 S1 [DSCSARPOINTERI: ¢! set up desc 

: 991 i 18 é If DEST ITER DSC$B_DTYPE] EQ. DScSK_ _ iat apse 

; 99 14 4 - TH];! if we are de RECORDS, 
: 394 ih d menuen onic ae herein pare ; Soe the tongth fren the descr 
3 9 1817 4 1E} - 

: 997 1B19 D_ADDR = -DEST CDSCSA POINTER] + .DEST CDSCSL_ARSI 

; 998 we. DSCSW_LENGTHT; 

; 1820 4 DEST COSCSW_ it. 

; 1500 18 2 ‘ i thru array moving each element from buffer ee 

; 1001 1823 4 igang POINTER] TO .END_AD 

: = -DEST COSCSA_ 

; 1008 185¢ 2 NR SDEST EDSCSU_ LENGTHS DO 

3 1008 is $ : BEGIN ing within array 
; 1006 5 TEJ;! desc for string 

; 1007 1899 8 MAP DSC_PTR: REF BLOCK (8,8YTE; 

1009 1880 5 IF (.SRC CDSCSW_LENGTH] LSSU .LEN) 

g 1919 183 THEN, MOVOVEBUF ) ; ): 

: 1011 1833 BASSSSTOP_10 (BASSK RC EDSCSAPOINTER]); 
: ° LEN, -S from bu e 

i 1018 1835 STRSCOPY_R (.BSC_PTR yw Bags~ | padding if 

; 1016 1836 i peceasery LEN: 

: 1016 1838 SRC CDSCSA_POINTER] = .SRC et update butter pointer 

1018 1839 ENGTH] = .SRC COSCS$W LE orn) ion aust be decreased | 
3 1ON8 1840 SRC CDSCSW_L 44-0 go check can. 
e ‘ t fur 

: 19 : 1 done met ouoriten buffer 
<1 et 

* 1095 im 7 END 

: END 

i 1848 FASE ie DEST CDSCSB_CLASS) EOL DSCSK_CLASS_BFA 

1039 1856 The ae 

: 1031 183¢ " 

* 103 1 37 i virtual array i 

; 1088 \ 55 ‘cae ! buffer element Leng 

: 1038 1336 SRC_LEN, 

> 1036 185 


Anti if 
7 
A SMOVE _ARRAY 18-Sep-1 1984 AX-11 Bliss-32 V4.0-7 Pa 1 
rth 1a-Sep- 198 90: $f: 3 BASRTL.SRCJBASMOVEAR. 5 2:1 cB) 
| 
; 1038 } 28 MEM_LOC; ! virtual memory pointer 
:4 1860 LIBSGET_VM (DEST COSCSL_ARSIZEJ, MEM LOC); | 
5 iy ; o SRC_LEN T alloc memory for virtual array 
3 1 § 1 es “tit “LENGTH LSS 0 THEN K_DEFAULT oT LEN ELSE .LENGTH); | 
3 3 1864 T dest length depends on if 
3 10464 1865 i CENGTH pereneser given, 
3; 1065 1 i defaults to 
5 ee ' 4 LEN = .DEST CDOSC$W_LENGTH); i array element Length 
3 ine 1869 ! If we are dealing with an array of RFAs or RECORDs, 
3 7 1870 : LEN must be changed to a power of 2 since that is the 
3 1930 : a virtual array element's true size. 
3 105¢ 1 g iF .DEST CDSCSB_DTYPE] EQL DSCSK_DTYPE_2 
: 105 1874 THEN 
3; 1054 1875 4 BEGIN 
3; 1055 1976 4 
8 1996 1877 5 LEN = (INCR I FROM 0 TO 9 
; 105 1378 é 
; 1058 187 IF .LEN LEQ .POWER_OF_2 (.1] 
; 1928 1880 5 THEN 
s 9 rt 4 EXITLOOP .POWER OF 2 C: ye) FE 
3 1061 1 Hf 4 SRC_LEN : .DEST COSCSW _CENGTH 
3 1ne6 18835 4 
3: 106 1884 ; END; 
3; 1064 1885 
3 1002 \33 4 IF (.LEN GTRU .SRC COSCS$W_LENGTH]) 
3 H+ 4 1oa8 BASSSSTOP_IO (BASSK_MOVOVEBUF ); 
3 W444 1890 : Loop thru array moving each element from buffer to it. 
3; 1071 1892 4 INCR PTR FROM .MEM_LOC TO (.MEM_LOC + .DEST CDSCSL_ARSIZE) - 
3 1976 1893 3 -LEN) BY .LEN BO 
3; 107 1894 & BEGIN 
: 10746 1895 4 CHSCOPY (.SRC_LEN, - SRC COSCSA -POINTER), 
3; 1075 1896 4 2x'O', .LEN, .PTR); move String from buf ter to 
3 1978 +44 ? : array, null padding 
3; 1078 1899 4 SRC COSCSA_POINTER] = .SRC Coscsa_ POINTERS + .SRC_LEN; 
: 1079 1900 4 thet tg bu gut ice ¢ pent ater 
3; 1080 133 4 SRC CDOSCSW_ LENGTH) = .SRC COSCSW_ qt oi" 
3; 1081 1 § 4 fer tek” per pe decreased 
3 H 4 1903 4 i - amt moved so check can be 
: 108 1904 4 !' done so that further moves 
3; 1084 1905 4 ! will not overflow buffer 
: 1085 1998 END; 
3 Hs 190 
3 1 1908 BASSSWHOLE_VA_STORE (.DEST, .MEM 100); 
3; 1088 1909 store array from memory 
3; 1089 1910 LIBSFREE_VM (DEST CDOSCSL_ARSIZE), neh Lot} 
: 1090 1911 ssi lec memory used for array 
; 1091 44 END; 
: 1098 191 
; 109 1914 END; ! of DEST_SA 
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16-Sep-1984 
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No 


17$: 
18$: 


1955331 


eet Bliss-32 V4.0- 


(R7), Re 

R4, RO, END ADDR 
4(R?), DSC_PTR 

#0, #16, (R6), R2 


#BASSK_MOVOVEBUF, (SP) 
; ,BASSSSTOP_I0 


1 
rb 
EN 
sc P 
2 
N, 
‘ 
4 
4. D 
st_p 
2$ 
(R 
6$ 


m— 
»@ 


ND_ADDR 


7), #191 


—Aw —O@WzA-zAr s0r -~22—-2—fF- 
o~ & 


oc 

12(R?) 

#2, LIBSGET_VM 

LENGTH 

‘ 6, SRC_LEN 

LENGTH, SRC_LEN 
(R7), LEN 

2(R75 

f 

POWER_OF _2C1) 

#0, #16, a(SP)+, LEN 

POWER_OF _2C(1], RO 

21$ 

#9, 1, 198 

#1. RO 

RO. LEN 

(R?), SRC_LEN 

#9, #16, SSRC, LEN 

#BASSK_MOVOVEBUF, -(SP) 
1 BASSSSTOP I 

2(R7), MEM_LOC, R10 

EN, R10 

RC. R6 

: “LOC, PTR 

RC_LEN, @4(R6), #0, LEN, (PTR) 

RC_LEN, 4(R6) 

RC“LEN, aSRC 


a 
1 
L 
S 
M 
2 
s 
S 
S 


M 
$ 
C 
C 
C 
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ro 
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1821 
1832 


4 7 
al tama 16-Sep-1984 00:4 as AX-11 Bliss-32 v4.0-74 
1-020 14-Sep-1984 11:5 1 BASRTL.SRCJBASMOVEAR.B32;1 
58 04 AE CO 00170 ADDL2 LEN, 
5A 58 Di 00174 25$: CMPL PTR, RIG 
E7 15 00177 BLEQ 24 
08 ag DD 00179 PUSHL MEM_LOC 
57 DD 0017C PUSHL R 
000000006 00 02 FB HH; CALLS #2, BASSSWHOLE_VA_STORE 
08 AE 9F 0018 PUSHAB MEM_LOC 
OC <A? 99F 00188 PUSHAB 12(R7) 
000000006 00 02 FB 8188 CALLS #2, LIBSFREE_VM 
04 0019 RET 
; Routine Size: 403 bytes, Routine Base: _BASS$CODE + 0508 
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N 7 
16-Sep-1984 00:47:33 AX-11 Bliss-32 V4.0- 
13-808= 1386 995 30:37 BASRTL. RC IBASMOVE R 
ROUTINE DEST_DSC ( ! MOVE a descriptor 
seer Maer Occ: BYE BES ehatSeay 
LENGTH ! =1 or length of each string 
) : CALL_CCB NOVALUE = 


++ 

: FUNCTIONAL DESCRIPTION: 
Within a MOVE statement, move the I/0 buffer to an array of 
descriptors. The descriptors may be string descriptors or 


descriptors for dynamic variables (probably numeric). So 
determine the dtype of the descriptor and then call SRC_SA or 


i] 
i 
' 
i 
i 
' 
i 
SRC_NA to perform the work. 
i FORMAL PARAMETERS: 

i SRC.mq.r The source, the 1/0 buffer. This is updated to account for 
: the bytes taken from it. 

DEST. wx.da The destination, an array of descriptors 

IMPLICIT INPUTS: 

CCB, which is used only to provide good error messages. 
IMPLICIT OUTPUTS: 

: NONE 

: 

} 

1 

le 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
Signals if an error is encountered. 
BEGIN 


EXTERNAL REGISTER 
CCB : REF BLOCK C, BYTE); 


OCAL 
ELEM_DSC : REF BLOCK (8,BYTE]), 
NUM_ELEMS; 


'¢ 
! Set up pointer to the first element descriptor in the array so that the 
dtype and length can be determined. 


ELEM_DSC = .DEST CDSC$A_A0]; 


74 
-B52;1 


——— 


basen nanstintoetsdrnsennsasansnvnsisss asin saihissesseseastnhsnsseatsnsianaa 


Bliss-32 V4 0-742 
° Ak .o3? 


Prete lis 
BASRTL.SRCJBASMOVE 
_DTYPE_F 
$K-DTYPE~P4: 
Ty mapped array 


al 


$K 
S * .ELEM_DSC COSC$W_LENGTH]) 


T COSC$W_LENGTHI; 


Y= 


! string or record array 


! of DEST_DSC 


9: 


Now just dispatch to the appropriate routine based on the dtype in the 


descriptor slenent. 


ARSI 
SU ( 
ENGTH); 


5 
_MOVOVEBUF ) ; 


n 
g the buffer here to save doing it in 
SRC COSC$W_LENGTH) L 
BAS$S$STOP_IO (BAS$K 
SRC, .DEST); 
«SRC, DEST, Li 


-ELEM_DSC CDSCSB_DTYPE) OF 
x 
K 

_NA (, 


D 
D 
Check for overflowin 


DEST_NA. 
NUM_ELEMS = .DEST COSCSL 


IF 
BASS$STOP_10 (BAS$K_PROLOSSOR) ; 


DEST_SA Tt 


COTHERWISE): 


DEST 
END; 
COSCSK_DTYPE_T, DSCS$K_DTYPE_7]: 


SELECTONEU 
SET 
D 
D 
TES; 


END; 
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Cc ee ee cee elie a el eek ee ee ee ee ee, ee el el ee oe 
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1-020 


a. See eee - 


001C 00000 DEST_DSC: 


SS 


1915 
1970 
1977 
1980 
1987 


OP_I0, R4 
M 


R2 


ww 


E 
“pS) 
, NUM_ELEMS 


Save R2,R3,R4 
BASS$ST 
RO, #6 
$ 
0, #8 
$ 
0, #10 
$ 
RO, #11 
3$ 
RO, #21 
3$ 
RO, #27 
5$ 
RO, #28 
5$ 


MOVZBL 2(ELEM 


MOVL 
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8 
| BASSMOVE _ARRAY 1b-sep -1984 33 AX-11 Oi fog -32 vV4.0-7 Page 37 
32830 1e8ep= 1984 11:55:21 EBASRTLSRETBASMOVE AR -652;1 % 3 
| 
50 0c ag 50 7 003 DIVL3 NUM ELEMS 12¢R2), NUM_ELEMS : 
2 $1 C 0004 MOVZWL dscS, + 1988 
0 3 (C4 BRe MULL2 ast a 3 
50 04 BC 10 00 046 CMPZV #0, #16, @SRC, RO F 
y? E 0004C BGEQU§ 4$ é 
7E 00G 8F 9A 0004 MOVZBL ae MOVOVEBUF, =-(SP) 3 1996 
64 9} FB 0005 CALLS , BASS$$STOP_IO é 
2 DD 00055 4$ PUSHL 3: 1991 
04 AS DD 00057 PUSHL F 
FD23.—s CF 0 fo Q005A CALLS th DEST_NA $ 
04 0005F RET : 1977 
50 0 ihe 5$ TSTL RO 3 1994 
05 13 0006 BEQL 6$ 3 
OE 50 91 00064 CMPB RO, #14 : 
OE 12 00067 BNEQ 5 
0c AC DD 00069 6$ PUSHL LENGTH 3: 1995. 
52 DD 0006C PUSHL R2 3 
04 AC ODD OO06E PUSHL SRC ; 
FOF? 3 =CF 03 FB 00071 CALLS #3, DEST_SA F 
04 00076 RET : 
7E 00G 8F 9A 00077 7$ MOVZBL oe PROLOSSOR, -(SP) ; 1998 
64 01 FB 00078 CALLS , BAS$$STOP_I0 3 
04 O0007E RET : 2002 
; Routine Size: 127 bytes, Routine Base: _BASSCODE + 0698 
3: 1183 2003 1 END ! end of module BASSMOVE_ARRAY 
: 1184 2004 1 
3 1185 2005 0 ELUDOM 
; PSECT SUMMARY 
3 Name Bytes Attributes 
;  BASSCODE 1818 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
g Seg eee es Ne Ce kl nd ea o= Syabols eooceere Pages Processing 
: File Total Loaded Percent Mapped Time 


-$255$DUA28: CSYSLIBISTARLET.L32;1 9776 20 0 581 00:01.2 


r 


dD 8 
BASSMOVE _ARRAY 16-Sep-1984 00:47:33 AX-11 Bliss-32 V4.0-74 Page 38 
1-020 1-8ep-19 4 90:85:33 BASRTL.SRC JBASMOVEAR .B32;1 . (9) 
: COMMAND QUALIFIERS 
: BLISS/CHECK= (FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=L1S$:BASMOVEAR/0BJ=0BJ$ : BASMOVEAR MSRC$:BASMOVEAR/UPDATE = (ENH$ : BASMOVEAR 
Size: 1773 code + 45 data bytes 
Run Time 7.0 


Elapsed Time: O15 18-8 
Lines/CPU Min: 3248 
Lonenes/<Py-Aitp: 25224 
ry, Used: 220 pages 
se ation Complete 
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